﻿Public Class frmMainLogin

    Private Sub tbrMain_ToolClick(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinToolbars.ToolClickEventArgs) Handles tbrMain.ToolClick
        Select Case e.Tool.Key
            Case "mnuDuLieuMau"
                frmMain.Show()
                sConn = "Data Source=ADMIN-PC\MSSQLSERVER2005;Initial Catalog=QLHD;Persist Security Info=True;User ID=sa;Password=thangphuong"
                Me.Hide()
            Case "mnuMoDuLieu"
                ''Hiển thj form đăng nhập vào CSDL cho người dùng chọn và nhập thông tin
                frmDangNhap.Show()
            Case "mnuDuLieuMau"
                Me.Hide()
                sConn = "Data Source=ADMIN-PC\MSSQLSERVER2005;Initial Catalog=QLHD;Persist Security Info=True;User ID=sa;Password=thangphuong"
                frmMain.Show()
            Case "mnuTaoMoiDuLieu"
                frmCreateNewDatabase.Show()
            Case "mnuGioiThieu"
                FrmInfoApplication.Show()
            Case "mnuKetThuc"
                Application.Exit()
        End Select
    End Sub

    Private Sub frmMainLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class